﻿Public Class ClsFileOfApplication
    Inherits ClsFile
    'represents application file (all paths, EXE path,...)

    ' ''#Region "Attributes"
    ' ''#Region "Private attributes"
    ' ''    Private MsPathToNodeTemplate As String = "" 'path to node templates
    ' ''    Private MsPathToUserSettings As String = "" 'path to user settings
    ' ''#End Region
    ' ''#End Region
#Region "Constructors"
    Sub New()
        MyBase.New()
    End Sub

    Sub New(ByVal IsPath As String)
        MyBase.New(IsPath)
        ' ''MsPathToNodeTemplate = IO.Path.Combine(IO.Path.GetDirectoryName(IsPath), "NodeTemplates.xml")
        ' ''MsPathToUserSettings = IO.Path.Combine(IO.Path.GetDirectoryName(IsPath), "UserSettings.xml")
    End Sub
#End Region
    ' ''#Region "Properties"
    ' ''#Region "Public attributes"
    ' ''    Public ReadOnly Property PathToNodeTemplate() As String
    ' ''        Get
    ' ''            Return MsPathToNodeTemplate
    ' ''        End Get
    ' ''    End Property
    ' ''    Public ReadOnly Property PathToUserSettings() As String
    ' ''        Get
    ' ''            Return MsPathToUserSettings
    ' ''        End Get
    ' ''    End Property
    ' ''#End Region
    ' ''#End Region

End Class
